Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / picmanip / pic_r2z / stosshow / stosshow.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1995-05-05 | 19KB | 348 lines

1 REM ideas: ste palette in bw: horizontal line scroll,diagonal(5(320)*8(200)),smoother h scroll 10 CLS 100 VARNAME 1000 REM effect 1 10000 REM fx 10 10005 VARNAME 10010 IF 10015 IF 10020 FOR 10030 SCREEN COPY 10035 WAIT VBL 10040 SCREEN COPY 10045 WAIT VBL 10050 NEXT 10060 SCREEN COPY 1010 IF 1020 APPEAR 104 IF 105 IF 1050 WAIT 1055 SCREEN COPY 1060 RETURN 110 VARNAME 11000 REM fx11 11010 IF 11020 FOR 11030 WAIT VBL 11040 FOR 11050 SCREEN COPY 11060 NEXT 11140 NEXT 11160 SCREEN COPY 115 VARNAME 120 VARNAME 12000 REM effect 12 (new picture comes from right and left) 12005 REM a duplicate of line 5005 was here. 12010 IF 12011 FOR 12012 FOR 12013 FOR 12014 VARNAME 12015 SCREEN COPY 12016 SCREEN COPY 12020 NEXT 12025 REM a scroll 1 statement used to be here 12030 NEXT 12040 SCREEN COPY 12050 SCREEN COPY 12054 NEXT 12055 SCREEN COPY 12057 WAIT 12060 RETURN 121 IF 125 VARNAME 126 IF 130 ON 140 IF 145 FOR 15 CENTRE 150 VARNAME 155 IF 156 IF 16 PRINT 160 ON 17 PRINT 170 FOR 18 LOCATE 180 IF 185 IF 186 IF 187 IF 19 VARNAME 190 VARNAME 2 REM try fx11 backwards 20 WINDOPEN 200 WAIT VBL 2000 REM effect 2 2010 IF 2020 WAIT 2030 SCREEN COPY 2040 WAIT 205 WAIT 2050 IF 2055 SCREEN COPY 2060 RETURN 21 PAPER 210 RETURN 22 LOCATE 220 VARNAME 225 VARNAME 23 SET ZONE 24 SET ZONE 240 IF 245 IF 25 REPEAT 250 UNTIL 255 GOSUB 256 IF 257 GOSUB 258 FOR 259 VARNAME 26 IF 260 WINDOPEN 261 PAPER 262 LOCATE 265 SET ZONE 27 IF 275 REPEAT 276 UNTIL 277 WINDEL 279 RETURN 280 VARNAME 281 PAPER 282 LOCATE 283 SET ZONE 284 SET ZONE 285 REPEAT 286 IF 287 IF 29 UNTIL 298 UNTIL 299 WINDEL 300 REM negative flash 3000 REM effect 3 (new picture comes from bottom) 3005 DEF 301 FOR 3010 IF 3012 FOR 3015 SCREEN COPY 302 FOR 3020 SCROLL 3030 NEXT 305 FOR 3050 WAIT 3051 SCREEN COPY 3055 SCREEN COPY 3060 RETURN 310 FOR 320 FOR 330 FOR 340 FOR 35 RESET ZONE 350 NEXT 36 WINDEL 360 RETURN 39999 REM STE Black & white 4 REM on STE, It only uses 16 shades in BW only, not bw+negs 40 IF 400 REM negative fade 4000 REM effect 4 (new picture comes from top) 40000 IF 40002 FOR 40003 VARNAME 40004 VARNAME 40005 VARNAME 40006 VARNAME 40007 VARNAME 40008 VARNAME 40010 VARNAME 40011 NEXT 40030 FOR 4005 DEF 40050 COLOUR 40060 NEXT 40070 RETURN 401 FOR 4010 IF 4012 FOR 4015 SCREEN COPY 402 FOR 4020 SCROLL 403 FOR 4030 NEXT 405 VARNAME 4050 WAIT 4051 SCREEN COPY 4055 SCREEN COPY 4060 RETURN 410 FOR 420 FOR 430 VARNAME 440 RETURN 44999 REM keys 450 FADE 45000 VARNAME 45010 IF 45020 IF 45030 RETURN 460 RETURN 5 REM 50 IF 500 REM b/w 5000 REM effect 5 (new picture comes from right) 5005 DEF 501 FOR 5010 IF 5011 FOR 5012 FOR 5015 SCREEN COPY 502 FOR 5020 SCROLL 503 VARNAME 5030 NEXT 504 VARNAME 5040 SCREEN COPY 505 VARNAME 5050 SCREEN COPY 5054 NEXT 5055 SCREEN COPY 5057 WAIT 506 VARNAME 5060 RETURN 507 VARNAME 508 VARNAME 509 IF 51 GOTO 510 VARNAME 511 NEXT 515 FOR 520 FOR 530 RETURN 6 VARNAME 60 DIM 600 FOR 6000 REM effect 6 (new picture comes from left) 6005 DEF 601 FOR 6010 IF 6011 FOR 6012 FOR 6015 SCREEN COPY 602 VARNAME 6020 SCROLL 603 VARNAME 6030 NEXT 604 VARNAME 6040 SCREEN COPY 605 VARNAME 6050 SCREEN COPY 6054 NEXT 6055 SCREEN COPY 6057 WAIT 606 VARNAME 6060 RETURN 607 VARNAME 608 VARNAME 609 VARNAME 610 NEXT 611 FOR 612 FOR 615 FOR 616 FOR 620 FOR 621 FOR 625 FOR 626 FOR 630 FOR 631 FOR 635 FOR 636 FOR 640 FOR 645 RETURN 7 VARNAME 70 RETURN 700 FOR 7000 REM effect 7 (new picture comes from top and bottom) 7005 DEF 7006 DEF 701 FOR 7010 IF 7011 VARNAME 7012 FOR 7015 SCREEN COPY 7016 SCREEN COPY 702 VARNAME 7020 SCROLL 7021 SCROLL 7025 INC 7026 DEF 7027 DEF 703 VARNAME 7030 NEXT 704 VARNAME 7040 SCREEN COPY 705 VARNAME 7050 WAIT 7055 SCREEN COPY 7057 IF 706 VARNAME 7060 RETURN 707 VARNAME 708 VARNAME 709 VARNAME 710 VARNAME 711 VARNAME 712 VARNAME 713 VARNAME 714 NEXT 715 FOR 720 FOR 725 FOR 730 FOR 731 FOR 732 FOR 733 FOR 734 FOR 735 FOR 736 FOR 737 FOR 740 FOR 750 RETURN 8 VARNAME 80 HIDE 8000 REM effect 8 (new picture comes from centre) 8005 DEF 8006 DEF 8010 IF 8011 VARNAME 8012 FOR 8015 SCREEN COPY 8016 SCREEN COPY 8020 SCROLL 8021 SCROLL 8025 DEC 8026 DEF 8027 DEF 8030 NEXT 8040 SCREEN COPY 8050 WAIT 8055 SCREEN COPY 8057 IF 8060 RETURN 90 RESERVE 9000 REM effect 9 9010 IF 9020 FOR 9030 SCREEN COPY 9040 FOR 9050 NEXT 9055 WAIT 9060 FOR 9070 SCREEN COPY 9075 FOR 9080 NEXT 9085 SCREEN COPY 9090 RETURN 91 VARNAME